home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
tprat5.arc
/
TPRAT5.DEF
< prev
next >
Wrap
Text File
|
1988-12-20
|
8KB
|
295 lines
;TP Rat 5.0 Definition File
;Copyright (c) 1988
;by J. A. Smart
;Revised 10-17-88
;Define mouse buttons, movement and sensitivity
Begin lb,rb,bb,LEFT,RIGHT,UP,DOWN,35,55
;Match screen outputs for context sensitivity
lb: MATCH 14,27,, "Borland",mAUTOEXEC1,matlb2
matlb2: MATCH 2,4,, "┌",ENT,matlb3
matlb3: MATCH 2,20,, "┌",ENT,matlb4
matlb4: MATCH 2,27,, "┌",ENT,matlb5
matlb5: MATCH 2,38,, "┌",ENT,matlb6
matlb6: MATCH 2,47,, "┌",ENT,matlb7
matlb7: MATCH 2,50,, "┌",ENT,matlb8
matlb8: MATCH 1,5,15, "F",ENT,matlb9
matlb9: MATCH 1,13,15, "E",ENT,matlb10
matlb10: MATCH 1,21,15, "R",ENT,matlb11
matlb11: MATCH 1,28,15, "C",ENT,matlb12
matlb12: MATCH 1,39,15, "O",ENT,matlb13
matlb13: MATCH 1,50,15, "D",ENT,matlb14
matlb14: MATCH 1,59,15, "B",ENT,matlb15
matlb15: MATCH 2,1,, "Option",mOPTIONS,matlb16
matlb16: MATCH 2,1,, "Replace",mREPLACE,F10
rb: MATCH 14,27,, "Borland",mAUTOEXEC2,matrb2
matrb2: MATCH 2,4,, "┌",ENT,matrb3
matrb3: MATCH 2,20,, "┌",ENT,matrb4
matrb4: MATCH 2,27,, "┌",ENT,matrb5
matrb5: MATCH 2,38,, "┌",ENT,matrb6
matrb6: MATCH 2,47,, "┌",ENT,matrb7
matrb7: MATCH 2,50,, "┌",ENT,matrb8
matrb8: MATCH 1,5,15, "F",ENT,matrb9
matrb9: MATCH 1,13,15, "E",ENT,matrb10
matrb10: MATCH 1,21,15, "R",ENT,matrb11
matrb11: MATCH 1,28,15, "C",ENT,matrb12
matrb12: MATCH 1,39,15, "O",ENT,matrb13
matrb13: MATCH 1,50,15, "D",ENT,matrb14
matrb14: MATCH 1,59,15, "B",ENT,matrb15
matrb15: MATCH 2,1,, "Option",mOPTIONS,matrb16
matrb16: MATCH 2,1,, "Replace",mREPLACE,mEDITMENU
bb: EXECUTE ESCAPE
;Key defined
ENT: TYPE 013
ESCAPE: TYPE 027
UP: TYPE 0,72
DOWN: TYPE 0,80
RIGHT: TYPE 0,77
LEFT: TYPE 0,75
CANCEL: NOTHING
mAUTOEXEC1: EXECUTE ESCAPE,F5,F,L,ENT
mAUTOEXEC2: EXECUTE ESCAPE,F,L,ENT
mEDITMENU: POPUP,1,1,116,NORMAL
TEXT " Block Search & Replace Miscellaneous ««« Turbo Pascal 5.0 Mouse »»» "
SELECT 1,4,5,mBLOCK
SELECT 1,12,16,mSEARCH
SELECT 1,31,13,mMISC
PEND
mBLOCK: POPUP,2,1,113,NORMAL
TEXT "╔═══════════════════╗"
TEXT "║ Block Function ║"
TEXT "╚╤═════════════════╤╝"
TEXT " │Begin Block │ "
TEXT " │End Block │ "
TEXT " │Mark Single Word │ "
TEXT " │Print Block │ "
TEXT " │Copy Block │ "
TEXT " │Delete Block │ "
TEXT " │Hide/Display │ "
TEXT " │Move Block │ "
TEXT " │Read from Disk │ "
TEXT " │Write to Disk │ "
TEXT " │ Cancel │ "
TEXT " └─────────────────┘ "
SELECT 4,3,17,mBegBlo
SELECT 5,3,17,mEndBlo
SELECT 6,3,17,mMarSin
SELECT 7,3,17,mPriBlo
SELECT 8,3,17,mCopBlo
SELECT 9,3,17,mDelBlo
SELECT 10,3,17,mHidDis
SELECT 11,3,17,mMovBlo
SELECT 12,3,17,mReaDis
SELECT 13,3,17,mWriDis
SELECT 14,3,17,Cancel
PEND
;Blocks & Markers executes defined
mBegBlo: EXECUTE CtrlK,B
mEndBlo: EXECUTE CtrlK,K
mMarSin: EXECUTE CtrlK,T
mPriBlo: EXECUTE CtrlK,P
mCopBlo: EXECUTE CtrlK,C,mEndBlo
mDelBlo: EXECUTE CtrlK,Y
mHidDis: EXECUTE CtrlK,H
mMovBlo: EXECUTE CtrlK,V,mEndBlo
mReaDis: EXECUTE CtrlK,R
mWriDis: EXECUTE CtrlK,W
mSEARCH: POPUP,2,12,113,NORMAL
TEXT "╔═════════════════╗"
TEXT "║ Find/Replace ║"
TEXT "╚╤═══════════════╤╝"
TEXT " │Find Pattern │ "
TEXT " │Find & Replace │ "
TEXT " │Repeat Find │ "
TEXT " │ Cancel │ "
TEXT " └───────────────┘ "
SELECT 4,3,15,mFinPat
SELECT 5,3,15,mFinRep
SELECT 6,3,15,mRepFin
SELECT 7,3,15,Cancel
PEND
mOPTIONS: POPUP,1,52,9,NORMAL
Text "╒══════════════════╕"
Text "│ Search Options │"
Text "╞══════════════════╡"
Text "│ (U)ppercase │"
Text "│ (B)ackward │"
Text "│ (W)hole Words │"
Text "│ (G)lobal Search │"
Text "│ (L)ocal to Block │"
Text "│ (N)o Prompting │"
Text "│ Enter <CR> │"
Text "│ CANCEL │"
Text "└──────────────────┘"
Select 4,3,16,U
Select 5,3,16,B
Select 6,3,16,W
Select 7,3,16,G
Select 8,3,16,L
Select 9,3,16,N
Select 10,3,16,ENT
Select 11,3,16,Cancel
PEND
;Execute Find choices
mFinPat: EXECUTE CtrlQ,F
mFinRep: EXECUTE CtrlQ,A
mRepFin: EXECUTE CtrlL
;Replace prompting
mREPLACE: POPUP,2,17,011,normal
TEXT " Yes No "
SELECT 1,2,3,Yes
SELECT 1,7,2,No
PEND
mMISC: popup,2,33,113,normal
TEXT "╔═══════════════════╗"
TEXT "║ Miscellaneous ║"
TEXT "╚╤═════════════════╤╝"
TEXT " │Abort Operation │ "
TEXT " │Autoindent │ "
TEXT " │Ctrl Char Prefix │ "
TEXT " │Exit, No Save │ "
TEXT " │Find Place Mark │ "
TEXT " │Go To Error │ "
TEXT " │Ins Comp Directv │ "
TEXT " │Language Help │ "
TEXT " │Optimal Fill │ "
TEXT " │Pair Braces Frwd │ "
TEXT " │Pair Braces Bkwd │ "
TEXT " │Repeat Last Find │ "
TEXT " │Restore Line │ "
TEXT " │Save & Remain │ "
TEXT " │Tab Mode │ "
TEXT " │Unindent Toggle │ "
TEXT " │ CANCEL │ "
TEXT " └─────────────────┘ "
SELECT 4,3,17,mAboOpe
SELECT 5,3,17,mAutInd
SELECT 6,3,17,mCtrCha
SELECT 7,3,17,mExiNoS
SELECT 8,3,17,mFinPla
SELECT 9,3,17,mGoToEr
SELECT 10,3,17,mInsCom
SELECT 11,3,17,mLanHel
SELECT 12,3,17,mOptFil
SELECT 13,3,17,mPaiFrw
SELECT 14,3,17,mPaiBkw
SELECT 15,3,17,mRepLas
SELECT 16,3,17,mResLin
SELECT 17,3,17,mSavRem
SELECT 18,3,17,mTabMod
SELECT 19,3,17,mUniTog
SELECT 20,3,17,CANCEL
PEND
mAboOpe: EXECUTE CtrlU
mAutInd: EXECUTE CtrlO,I
mCtrCha: EXECUTE CtrlP
mExiNoS: EXECUTE CtrlK,D
mFinPla: EXECUTE CtrlQ
mGoToEr: EXECUTE CtrlQ,W
mInsCom: EXECUTE CtrlO,O
mLanHel: EXECUTE CtrlF1
mOptFil: EXECUTE CtrlO,F
mPaiFrw: EXECUTE CtrlK,TYPE[
mPaiBkw: EXECUTE CtrlK,TYPE]
mRepLas: EXECUTE CtrlL
mResLin: EXECUTE CtrlQ,L
mSavRem: EXECUTE F2
mTabMod: EXECUTE CtrlO,T
mUniTog: EXECUTE CtrlO,U
;Alternate (macro) keys defined
Alt1: TYPE 0,120
Alt2: TYPE 0,121
Alt3: TYPE 0,122
Alt4: TYPE 0,123
Alt5: TYPE 0,124
Alt6: TYPE 0,125
Alt7: TYPE 0,126
Alt8: TYPE 0,127
Alt9: TYPE 0,128
;Control keys defined
CtrlA: TYPE 01
CtrlB: TYPE 02
CtrlC: TYPE 03
CtrlD: TYPE 04
CtrlE: TYPE 05
CtrlF: TYPE 06
CtrlG: TYPE 07
CtrlH: TYPE 08
CtrlI: TYPE 09
CtrlJ: TYPE 10
CtrlK: TYPE 11
CtrlL: TYPE 12
CtrlM: TYPE 13
CtrlN: TYPE 14
CtrlO: TYPE 15
CtrlP: TYPE 16
CtrlQ: TYPE 17
CtrlR: TYPE 18
CtrlS: TYPE 19
CtrlT: TYPE 20
CtrlU: TYPE 21
CtrlV: TYPE 22
CtrlW: TYPE 23
CtrlX: TYPE 24
CtrlY: TYPE 25
CtrlZ: TYPE 26
CtrlDel: TYPE 0,157
CtrlF1: TYPE 0,94
F1: TYPE 0,59
F2: TYPE 0,60
F3: TYPE 0,61
F5: TYPE 0,63
F10: TYPE 0,68
Yes: TYPE "Y"
No: TYPE "N"
A: TYPE "A"
B: TYPE "B"
C: TYPE "C"
D: TYPE "D"
E: TYPE "E"
F: TYPE "F"
G: TYPE "G"
H: TYPE "H"
I: TYPE "I"
J: TYPE "J"
K: TYPE "K"
L: TYPE "L"
M: TYPE "M"
N: TYPE "N"
O: TYPE "O"
P: TYPE "P"
Q: TYPE "Q"
R: TYPE "R"
S: TYPE "S"
T: TYPE "T"
U: TYPE "U"
V: TYPE "V"
W: TYPE "W"
X: TYPE "X"
Y: TYPE "Y"
Z: TYPE "Z"
TYPE[: TYPE "["
TYPE]: TYPE "]"
;<< EOF >>